home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / win_utl2 / pspa370a.zip / EXAMPL13.POM < prev    next >
Text File  |  1996-04-26  |  723b  |  20 lines
  1. ;
  2. ;   Output the line only if we're processing.  For the purposes of this demon-
  3. ;   stration, we'll put two X's at the end of each line so that when you look
  4. ;   at it with our file viewer, you can see how each line has been padded to
  5. ;   80 characters.
  6. ;
  7. BEGIN process = "Y"
  8.   PAD $FLINE "R" " " "78" 
  9.   PAD $FLINE "R" "X" "80"
  10.   OUT |{$FLINE}
  11. END
  12. ;
  13. ;   See if we've reached the dashed line, yet.  Until a variable is set
  14. ;   (in this case, the variable is named "process"), it is null ("").
  15. ;   We do the test here at the end of the POM file, instead of at the
  16. ;   beginning, since we don't include the dashed line itself as a line
  17. ;   to be processed.
  18. ;
  19. IF $FLINE[1 7] = "-------" THEN process = "Y"
  20.